(sun_item_create): Use CHECK_LIST_CONS.

diff --git a/src/sunfns.c b/src/sunfns.c
index 1c04f1108a804a9c4bca7cdef6c46bee612bdde1..336f02221cf868ff25740066b005401873806ac3 100644 (file)
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -363,7 +363,7 @@ sun_item_create (Pair)
   Lisp_Object String;
   Lisp_Object Value;
 
-  if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
+  CHECK_LIST_CONS (Pair, Pair);
   String = Fcar(Pair);
   CHECK_STRING(String);
   Value = Fcdr(Pair);